home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGBLER / PC37030.LZH / PC37030.ZIP / BEGIN.MAC < prev    next >
Text File  |  1987-08-12  |  528b  |  27 lines
  1. BEGIN     MACRO SAVE=YES,BASES=1
  2. &LABEL$$ CSECT
  3.      USING *,15
  4.      AIF   /&LABEL$$=/ .NOIDENT
  5.      B     KZHQX&N$
  6.      DC    AL1(11)
  7.      DC    CL11'&LABEL$$'
  8. .NOIDENT AIF   &SAVE=NO.NOSAVE
  9. HZQKX&N$ DC    18F'0'
  10. KZHQX&N$ STM   14,12,12(13)
  11.      ST    13,HZQKX&N$+4
  12.      LR    14,13
  13.      LA    13,HZQKX&N$
  14.      ST    13,8(0,14)
  15.      DROP  15
  16.      USING HZQKX&N$,13
  17.      AIF   &BASES<2.END
  18.      LA    12,4094(0,13)
  19.      USING HZQKX&N$+4094,12
  20.      AGO   .END
  21. .NOSAVE  ANOP
  22. KZHQX&N$ STM   14,12,12(13)
  23.      DROP  15
  24.      BALR  12,0
  25.      USING *,12
  26. .END     ANOP
  27.